Datos de alumnado

Columna 1

Tabla de datos

Columna 2

Alumnos por curso

Información de interés

Para consultar tus dudas escribe un correo a

Brecha de género

Diferencias de género por centro

Columna D

Componente de texto2

Otros

Columna E

Números

123456789

Columna F

Letras

abcdefghijklmnñopqrstuvwxyz

---
title: "Alumnado UCM"
author: "Jara, J."
date: "`r Sys.Date()`"
output: 
  flexdashboard::flex_dashboard:
    source_code: embed
    theme: spacelab
    social: [ "twitter", "facebook", "youtube" ]
    navbar:
      - { title: "UCM web", href: "https://www.ucm.es", align: left }
    orientation: rows
    vertical_layout: scroll
    
---
```{r setup, include=FALSE}
library(flexdashboard)
library(readr) 
library(dplyr)
library(ggplot2)
library(DT)
library(plotly)

df <- read_delim("datos_tratados.csv", delim = ";")
df$CURSO <- factor(df$CURSO)
df$CENTRO <- factor(df$CENTRO)
```


# Datos de alumnado

## Columna 1

### Tabla de datos
```{r}
tabla_interactiva <- datatable(df, options = list(pageLenght = 25))
tabla_interactiva
```


## Columna 2 

### Alumnos por curso
```{r fig.width=7, fig.height=7}
ggplot(df, aes(x = CURSO, y = TOTAL)) + 
  geom_col(fill = "lightblue") +
  labs(title = "Estudiantes por curso", x = "Curso", y = "Alumnos/as",
       ) + 
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1, size = 8))
```


### Información de interés
Para consultar tus dudas escribe un correo a _josujara@ucm.es_


# Brecha de género

## Diferencias de género por centro
```{r}
grouped_data <- df %>%
                group_by(CENTRO) %>%
                select(CURSO, TOTAL_HOMBRES, TOTAL_MUJERES) %>%
                summarise(across(where(is.numeric), sum))
DT::datatable(grouped_data, options = list( pageLength = 15))
```


## Columna D 

### Componente de texto2


# Otros

## Columna E 

### Números
123456789

## Columna F 

### Letras
abcdefghijklmnñopqrstuvwxyz